home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 4 / Amiga Tools 4.iso / tools / internet-tools / connect-line / cl / rexx / modules / misc.clrexxmod < prev    next >
Encoding:
Text File  |  1996-02-05  |  2.7 KB  |  102 lines
  1. /*
  2. **  $VER: misc.clrexxmod 0.1 (05 Feb 1996)  **
  3. **
  4. **        © 1996 Ralf Ramge
  5. **
  6. **  PROGRAMNAME:
  7. **      stdio.clrexxmod
  8. **
  9. **  FUNCTION:
  10. **      clrexx-Modul für Funktionen, die nicht so
  11. **      recht in andere Module passen
  12. **
  13. **      Bisherige Funktionen:
  14. **      CREATEBOARD
  15. **
  16. **  $HISTORY:
  17. **
  18. **   05 Feb 1996 : 0.1 : CREATEBOARD implementiert
  19. */
  20.  
  21. line=upper(arg(1))
  22. line=translate(line,' ',',')
  23. procname=word(line,1)
  24. if words(line)>1 then do
  25.     do argctr=1 to words(line)
  26.         param.argctr=word(line,argctr+1)
  27.         end
  28.     end
  29.  
  30. ctr=0
  31.  
  32. /* cl_rexx.library öffnen */
  33.  
  34. if ~show('L','cl_rexx.library') then do
  35.     if ~addlib('cl_rexx.library',0,-30,0) then exit 10
  36.     end
  37.  
  38. select
  39.     when procname='CREATEBOARD' then interpret 'call' procname
  40.     otherwise nop
  41.     end
  42.  
  43. exit
  44.  
  45. /* CREATEBOARD <Brettname>
  46. **
  47. ** Parameter:
  48. **
  49. **  <Brettname> = Name des Brettes der Gruppe,
  50. **                egal ob in ZConnect-, RFC-,
  51. **                FTS- oder cl_Rexx-Schreibweise.
  52. **
  53. ** Funktion:
  54. **
  55. ** Legt ein Brett an und verpasst ihm folgende
  56. ** Grundeinstellungen zusätzlich zu den Einstellungen,
  57. ** die die cl_rexx.library automatisch vornimmt:
  58. **
  59. **  NewsgroupName entspricht dem gewandelten Brettnamen
  60. **  FTSName entspricht dem gewandelten Brettnamen
  61. **  keine Routgrenze
  62. **  Binaries sind erlaubt
  63. **  Text ist erlaubt
  64. **  Mapszugriff erlaubt
  65. **  Autoeintrag ist gesetzt
  66. **  Ratio ist abgeschaltet
  67. **  Brett wird nicht automatisch gelöscht
  68. **  Brett ist kein Routebrett
  69. **  Es wird auf neue Inhalte gescannt
  70. */
  71.  
  72. CREATEBOARD:
  73.  
  74. remote=param.2
  75.  
  76. brett=translate(word(param.1,1),xrange('A','Z'),xrange('a','z'))      /* Brettnamen in uppercase */
  77. brett=translate(brett,'/','.')                                        /* Punkte in Slashes       */
  78. if left(brett,1)='/' then brett=right(brett,length(brett)-1)          /* Führender Slash raus    */
  79. if brett~='' then do
  80.     if ~CLIS_BoardExists(brett) then do
  81.         Say 'Neues Brett: /'brett
  82.         CL_BoardNew(brett)
  83.         call CL_LogAdd(0,'CBOARD','Neues Brett: /'brett)
  84.         newsgroupname=translate(brett,'.','/')                        /* In Newsgroupname wandeln */
  85.         ftsname=newsgroupname                                         /* FTS-Name */
  86.         newsgroupname=translate(newsgroupname,xrange('a','z'),xrange('A','Z'))
  87.         CLSET_BoardNewsgroupName(brett,newsgroupname)
  88.         CLSET_BoardFTSName(brett,ftsname)
  89.         CLSET_BoardMaxNet(brett,'0')
  90.         CLSET_BoardBin(brett,'1')
  91.         CLSET_BoardText(brett,'1')
  92.         CLSET_BoardMapsAllowed(brett,'1')
  93.         CLSET_BoardAutoEntry(brett,'1')
  94.         CLSET_BoardDLRatio(brett,'0')
  95.         CLSET_BoardAutoRemove(brett,'0')
  96.         CLSET_BoardRouteOnly(brett,'0')
  97.         CLSET_BoardNoScan(brett,'0')
  98.         end
  99.     end
  100.  
  101. return
  102.